home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
comp_lan
/
85_febr
/
fortrn.2
< prev
next >
Wrap
Text File
|
1988-07-25
|
640b
|
36 lines
Listing 2
C Instead of FORTRAN?
double f(x)
double x;
{
return(x - 1.0); /* f(x) = x - 1.0 */
}
double f(x)
double x;
{
double sin(); /* sin() function */
return(sin(2.0*x)); /* f(x) = sin(2x) */
}
double f(x)
double x;
{
double temp = 0.0;
double power = 1.0;
int i;
for(Θ ╜ 1;Θ ╝ 6;i++⌐ /¬ Θ loop≤ froφ ▒ t∩ ╡ inclusivσ */
{
temp = temp + power/((double)i));
power = power * x;
}
return(temp); /* f(x) = polynomial */
}